BBS in a Box 15

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / M / MacPerl 4.13 source.sit / Perl Source ƒ / Perl / dump.c < prev next >
MacBinary | 1993-10-23 | 9.4 KB | [TEXT/MPS ]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: dump.c
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	Compact Compressed (Unix) `(archive/compact)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`10%`	dexvert	Jesper Olsen Module `(music/jesperOlsen)`	magic	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Sat Oct 23 01:08:47 1993, modified Sat Oct 23 01:08:47 1993, creator 'MPS ', type ASCII, 8908 bytes "dump.c" , at 0x234c 428 bytes resource	default (weak)
`99%`	file	data	default
`49%`	TrID	Macintosh plain text (MacBinary)	default
`33%`	TrID	TTComp archive compressed (bin-4K)	default (weak)
`16%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 06 64 75 6d 70 2e 63 | 00 00 00 00 00 00 00 00 |..dump.c|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 22 cc 00 | 00 01 ac a8 ee 6c df a8 |....."..|.....l..|
|00000060| ee 6c df 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.l......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 ca a4 00 00 |........|........|
|00000080| 2f 2a 20 24 52 43 53 66 | 69 6c 65 3a 20 64 75 6d |/* $RCSf|ile: dum|
|00000090| 70 2e 63 2c 76 20 24 24 | 52 65 76 69 73 69 6f 6e |p.c,v $$|Revision|
|000000a0| 3a 20 34 2e 30 2e 31 2e | 32 20 24 24 44 61 74 65 |: 4.0.1.|2 $$Date|
|000000b0| 3a 20 39 32 2f 30 36 2f | 30 38 20 31 33 3a 31 34 |: 92/06/|08 13:14|
|000000c0| 3a 32 32 20 24 0d 20 2a | 0d 20 2a 20 20 20 20 43 |:22 $. *|. *    C|
|000000d0| 6f 70 79 72 69 67 68 74 | 20 28 63 29 20 31 39 39 |opyright| (c) 199|
|000000e0| 31 2c 20 4c 61 72 72 79 | 20 57 61 6c 6c 0d 20 2a |1, Larry| Wall. *|
|000000f0| 0d 20 2a 20 20 20 20 59 | 6f 75 20 6d 61 79 20 64 |. *    Y|ou may d|
|00000100| 69 73 74 72 69 62 75 74 | 65 20 75 6e 64 65 72 20 |istribut|e under |
|00000110| 74 68 65 20 74 65 72 6d | 73 20 6f 66 20 74 68 65 |the term|s of the|
|00000120| 20 50 65 72 6c 20 41 72 | 74 69 73 74 69 63 20 4c | Perl Ar|tistic L|
|00000130| 69 63 65 6e 73 65 2c 0d | 20 2a 20 20 20 20 61 73 |icense,.| *    as|
|00000140| 20 73 70 65 63 69 66 69 | 65 64 20 69 6e 20 74 68 | specifi|ed in th|
|00000150| 65 20 52 45 41 44 4d 45 | 20 66 69 6c 65 2e 0d 20 |e README| file.. |
|00000160| 2a 0d 20 2a 20 24 4c 6f | 67 3a 09 64 75 6d 70 2e |*. * $Lo|g:.dump.|
|00000170| 63 2c 76 20 24 0d 20 2a | 20 52 65 76 69 73 69 6f |c,v $. *| Revisio|
|00000180| 6e 20 34 2e 30 2e 31 2e | 32 20 20 39 32 2f 30 36 |n 4.0.1.|2  92/06|
|00000190| 2f 30 38 20 20 31 33 3a | 31 34 3a 32 32 20 20 6c |/08  13:|14:22  l|
|000001a0| 77 61 6c 6c 0d 20 2a 20 | 70 61 74 63 68 32 30 3a |wall. * |patch20:|
|000001b0| 20 72 65 6d 6f 76 65 64 | 20 69 6d 70 6c 69 63 69 | removed| implici|
|000001c0| 74 20 69 6e 74 20 64 65 | 63 6c 61 72 61 74 69 6f |t int de|claratio|
|000001d0| 6e 73 20 6f 6e 20 66 75 | 6e 63 69 6f 6e 73 0d 20 |ns on fu|ncions. |
|000001e0| 2a 20 70 61 74 63 68 32 | 30 3a 20 66 69 78 65 64 |* patch2|0: fixed|
|000001f0| 20 63 6f 6e 66 75 73 69 | 6f 6e 20 62 65 74 77 65 | confusi|on betwe|
|00000200| 65 6e 20 61 20 2a 76 61 | 72 27 73 20 72 65 61 6c |en a *va|r's real|
|00000210| 20 6e 61 6d 65 20 61 6e | 64 20 69 74 73 20 65 66 | name an|d its ef|
|00000220| 66 65 63 74 69 76 65 20 | 6e 61 6d 65 0d 20 2a 20 |fective |name. * |
|00000230| 0d 20 2a 20 52 65 76 69 | 73 69 6f 6e 20 34 2e 30 |. * Revi|sion 4.0|
|00000240| 2e 31 2e 31 20 20 39 31 | 2f 30 36 2f 30 37 20 20 |.1.1  91|/06/07  |
|00000250| 31 30 3a 35 38 3a 34 34 | 20 20 6c 77 61 6c 6c 0d |10:58:44|  lwall.|
|00000260| 20 2a 20 70 61 74 63 68 | 34 3a 20 6e 65 77 20 63 | * patch|4: new c|
|00000270| 6f 70 79 72 69 67 68 74 | 20 6e 6f 74 69 63 65 0d |opyright| notice.|
|00000280| 20 2a 20 0d 20 2a 20 52 | 65 76 69 73 69 6f 6e 20 | * . * R|evision |
|00000290| 34 2e 30 20 20 39 31 2f | 30 33 2f 32 30 20 20 30 |4.0  91/|03/20  0|
|000002a0| 31 3a 30 38 3a 32 35 20 | 20 6c 77 61 6c 6c 0d 20 |1:08:25 | lwall. |
|000002b0| 2a 20 34 2e 30 20 62 61 | 73 65 6c 69 6e 65 2e 0d |* 4.0 ba|seline..|
|000002c0| 20 2a 20 0d 20 2a 2f 0d | 0d 23 69 6e 63 6c 75 64 | * . */.|.#includ|
|000002d0| 65 20 22 45 58 54 45 52 | 4e 2e 68 22 0d 23 69 6e |e "EXTER|N.h".#in|
|000002e0| 63 6c 75 64 65 20 22 70 | 65 72 6c 2e 68 22 0d 0d |clude "p|erl.h"..|
|000002f0| 23 69 66 64 65 66 20 44 | 45 42 55 47 47 49 4e 47 |#ifdef D|EBUGGING|
|00000300| 0d 73 74 61 74 69 63 20 | 69 6e 74 20 64 75 6d 70 |.static |int dump|
|00000310| 6c 76 6c 20 3d 20 30 3b | 0d 0d 73 74 61 74 69 63 |lvl = 0;|..static|
|00000320| 20 76 6f 69 64 20 64 75 | 6d 70 28 29 3b 0d 0d 76 | void du|mp();..v|
|00000330| 6f 69 64 0d 64 75 6d 70 | 5f 61 6c 6c 28 29 0d 7b |oid.dump|_all().{|
|00000340| 0d 20 20 20 20 72 65 67 | 69 73 74 65 72 20 69 6e |.    reg|ister in|
|00000350| 74 20 69 3b 0d 20 20 20 | 20 72 65 67 69 73 74 65 |t i;.   | registe|
|00000360| 72 20 53 54 41 42 20 2a | 73 74 61 62 3b 0d 20 20 |r STAB *|stab;.  |
|00000370| 20 20 72 65 67 69 73 74 | 65 72 20 48 45 4e 54 20 |  regist|er HENT |
|00000380| 2a 65 6e 74 72 79 3b 0d | 20 20 20 20 53 54 52 20 |*entry;.|    STR |
|00000390| 2a 73 74 72 20 3d 20 73 | 74 72 5f 6d 6f 72 74 61 |*str = s|tr_morta|
|000003a0| 6c 28 26 73 74 72 5f 75 | 6e 64 65 66 29 3b 0d 0d |l(&str_u|ndef);..|
|000003b0| 20 20 20 20 64 75 6d 70 | 5f 63 6d 64 28 6d 61 69 |    dump|_cmd(mai|
|000003c0| 6e 5f 72 6f 6f 74 2c 4e | 75 6c 6c 63 6d 64 29 3b |n_root,N|ullcmd);|
|000003d0| 0d 20 20 20 20 66 6f 72 | 20 28 69 20 3d 20 30 3b |.    for| (i = 0;|
|000003e0| 20 69 20 3c 3d 20 31 32 | 37 3b 20 69 2b 2b 29 20 | i <= 12|7; i++) |
|000003f0| 7b 0d 09 66 6f 72 20 28 | 65 6e 74 72 79 20 3d 20 |{..for (|entry = |
|00000400| 64 65 66 73 74 61 73 68 | 2d 3e 74 62 6c 5f 61 72 |defstash|->tbl_ar|
|00000410| 72 61 79 5b 69 5d 3b 20 | 65 6e 74 72 79 3b 20 65 |ray[i]; |entry; e|
|00000420| 6e 74 72 79 20 3d 20 65 | 6e 74 72 79 2d 3e 68 65 |ntry = e|ntry->he|
|00000430| 6e 74 5f 6e 65 78 74 29 | 20 7b 0d 09 20 20 20 20 |nt_next)| {..    |
|00000440| 73 74 61 62 20 3d 20 28 | 53 54 41 42 2a 29 65 6e |stab = (|STAB*)en|
|00000450| 74 72 79 2d 3e 68 65 6e | 74 5f 76 61 6c 3b 0d 09 |try->hen|t_val;..|
|00000460| 20 20 20 20 69 66 20 28 | 73 74 61 62 5f 73 75 62 |    if (|stab_sub|
|00000470| 28 73 74 61 62 29 29 20 | 7b 0d 09 09 73 74 61 62 |(stab)) |{...stab|
|00000480| 5f 66 75 6c 6c 6e 61 6d | 65 28 73 74 72 2c 73 74 |_fullnam|e(str,st|
|00000490| 61 62 29 3b 0d 09 09 64 | 75 6d 70 28 22 5c 6e 53 |ab);...d|ump("\nS|
|000004a0| 55 42 20 25 73 20 3d 20 | 22 2c 20 73 74 72 2d 3e |UB %s = |", str->|
|000004b0| 73 74 72 5f 70 74 72 29 | 3b 0d 09 09 64 75 6d 70 |str_ptr)|;...dump|
|000004c0| 5f 63 6d 64 28 73 74 61 | 62 5f 73 75 62 28 73 74 |_cmd(sta|b_sub(st|
|000004d0| 61 62 29 2d 3e 63 6d 64 | 2c 4e 75 6c 6c 63 6d 64 |ab)->cmd|,Nullcmd|
|000004e0| 29 3b 0d 09 20 20 20 20 | 7d 0d 09 7d 0d 20 20 20 |);..    |}..}.   |
|000004f0| 20 7d 0d 7d 0d 0d 76 6f | 69 64 0d 64 75 6d 70 5f | }.}..vo|id.dump_|
|00000500| 63 6d 64 28 63 6d 64 2c | 61 6c 74 29 0d 72 65 67 |cmd(cmd,|alt).reg|
|00000510| 69 73 74 65 72 20 43 4d | 44 20 2a 63 6d 64 3b 0d |ister CM|D *cmd;.|
|00000520| 72 65 67 69 73 74 65 72 | 20 43 4d 44 20 2a 61 6c |register| CMD *al|
|00000530| 74 3b 0d 7b 0d 23 69 66 | 64 65 66 20 6d 61 63 69 |t;.{.#if|def maci|
|00000540| 6e 74 6f 73 68 0d 20 20 | 20 20 66 70 72 69 6e 74 |ntosh.  |  fprint|
|00000550| 66 28 70 65 72 6c 64 62 | 67 2c 22 7b 5c 6e 22 29 |f(perldb|g,"{\n")|
|00000560| 3b 0d 23 65 6c 73 65 0d | 20 20 20 20 66 70 72 69 |;.#else.|    fpri|
|00000570| 6e 74 66 28 73 74 64 65 | 72 72 2c 22 7b 5c 6e 22 |ntf(stde|rr,"{\n"|
|00000580| 29 3b 0d 23 65 6e 64 69 | 66 0d 20 20 20 20 77 68 |);.#endi|f.    wh|
|00000590| 69 6c 65 20 28 63 6d 64 | 29 20 7b 0d 09 64 75 6d |ile (cmd|) {..dum|
|000005a0| 70 6c 76 6c 2b 2b 3b 0d | 09 64 75 6d 70 28 22 43 |plvl++;.|.dump("C|
|000005b0| 5f 54 59 50 45 20 3d 20 | 25 73 5c 6e 22 2c 63 6d |_TYPE = |%s\n",cm|
|000005c0| 64 6e 61 6d 65 5b 63 6d | 64 2d 3e 63 5f 74 79 70 |dname[cm|d->c_typ|
|000005d0| 65 5d 29 3b 0d 09 64 75 | 6d 70 28 22 43 5f 41 44 |e]);..du|mp("C_AD|
|000005e0| 44 52 20 3d 20 30 78 25 | 6c 78 5c 6e 22 2c 63 6d |DR = 0x%|lx\n",cm|
|000005f0| 64 29 3b 0d 09 64 75 6d | 70 28 22 43 5f 4e 45 58 |d);..dum|p("C_NEX|
|00000600| 54 20 3d 20 30 78 25 6c | 78 5c 6e 22 2c 63 6d 64 |T = 0x%l|x\n",cmd|
|00000610| 2d 3e 63 5f 6e 65 78 74 | 29 3b 0d 09 69 66 20 28 |->c_next|);..if (|
|00000620| 63 6d 64 2d 3e 63 5f 6c | 69 6e 65 29 0d 09 20 20 |cmd->c_l|ine)..  |
|00000630| 20 20 64 75 6d 70 28 22 | 43 5f 4c 49 4e 45 20 3d |  dump("|C_LINE =|
|00000640| 20 25 64 20 28 30 78 25 | 6c 78 29 5c 6e 22 2c 63 | %d (0x%|lx)\n",c|
|00000650| 6d 64 2d 3e 63 5f 6c 69 | 6e 65 2c 63 6d 64 29 3b |md->c_li|ne,cmd);|
|00000660| 0d 09 69 66 20 28 63 6d | 64 2d 3e 63 5f 6c 61 62 |..if (cm|d->c_lab|
|00000670| 65 6c 29 0d 09 20 20 20 | 20 64 75 6d 70 28 22 43 |el)..   | dump("C|
|00000680| 5f 4c 41 42 45 4c 20 3d | 20 5c 22 25 73 5c 22 5c |_LABEL =| \"%s\"\|
|00000690| 6e 22 2c 63 6d 64 2d 3e | 63 5f 6c 61 62 65 6c 29 |n",cmd->|c_label)|
|000006a0| 3b 0d 09 64 75 6d 70 28 | 22 43 5f 4f 50 54 20 3d |;..dump(|"C_OPT =|
|000006b0| 20 43 46 54 5f 25 73 5c | 6e 22 2c 63 6d 64 6f 70 | CFT_%s\|n",cmdop|
|000006c0| 74 5b 63 6d 64 2d 3e 63 | 5f 66 6c 61 67 73 20 26 |t[cmd->c|_flags &|
|000006d0| 20 43 46 5f 4f 50 54 49 | 4d 49 5a 45 5d 29 3b 0d | CF_OPTI|MIZE]);.|
|000006e0| 09 2a 62 75 66 20 3d 20 | 27 5c 30 27 3b 0d 09 69 |.*buf = |'\0';..i|
|000006f0| 66 20 28 63 6d 64 2d 3e | 63 5f 66 6c 61 67 73 20 |f (cmd->|c_flags |
|00000700| 26 20 43 46 5f 46 49 52 | 53 54 4e 45 47 29 0d 09 |& CF_FIR|STNEG)..|
|00000710| 20 20 20 20 28 76 6f 69 | 64 29 73 74 72 63 61 74 |    (voi|d)strcat|
|00000720| 28 62 75 66 2c 22 46 49 | 52 53 54 4e 45 47 2c 22 |(buf,"FI|RSTNEG,"|
|00000730| 29 3b 0d 09 69 66 20 28 | 63 6d 64 2d 3e 63 5f 66 |);..if (|cmd->c_f|
|00000740| 6c 61 67 73 20 26 20 43 | 46 5f 4e 45 53 55 52 45 |lags & C|F_NESURE|
|00000750| 29 0d 09 20 20 20 20 28 | 76 6f 69 64 29 73 74 72 |)..    (|void)str|
|00000760| 63 61 74 28 62 75 66 2c | 22 4e 45 53 55 52 45 2c |cat(buf,|"NESURE,|
|00000770| 22 29 3b 0d 09 69 66 20 | 28 63 6d 64 2d 3e 63 5f |");..if |(cmd->c_|
|00000780| 66 6c 61 67 73 20 26 20 | 43 46 5f 45 51 53 55 52 |flags & |CF_EQSUR|
|00000790| 45 29 0d 09 20 20 20 20 | 28 76 6f 69 64 29 73 74 |E)..    |(void)st|
|000007a0| 72 63 61 74 28 62 75 66 | 2c 22 45 51 53 55 52 45 |rcat(buf|,"EQSURE|
|000007b0| 2c 22 29 3b 0d 09 69 66 | 20 28 63 6d 64 2d 3e 63 |,");..if| (cmd->c|
|000007c0| 5f 66 6c 61 67 73 20 26 | 20 43 46 5f 43 4f 4e 44 |_flags &| CF_COND|
|000007d0| 29 0d 09 20 20 20 20 28 | 76 6f 69 64 29 73 74 72 |)..    (|void)str|
|000007e0| 63 61 74 28 62 75 66 2c | 22 43 4f 4e 44 2c 22 29 |cat(buf,|"COND,")|
|000007f0| 3b 0d 09 69 66 20 28 63 | 6d 64 2d 3e 63 5f 66 6c |;..if (c|md->c_fl|
|00000800| 61 67 73 20 26 20 43 46 | 5f 4c 4f 4f 50 29 0d 09 |ags & CF|_LOOP)..|
|00000810| 20 20 20 20 28 76 6f 69 | 64 29 73 74 72 63 61 74 |    (voi|d)strcat|
|00000820| 28 62 75 66 2c 22 4c 4f | 4f 50 2c 22 29 3b 0d 09 |(buf,"LO|OP,");..|
|00000830| 69 66 20 28 63 6d 64 2d | 3e 63 5f 66 6c 61 67 73 |if (cmd-|>c_flags|
|00000840| 20 26 20 43 46 5f 49 4e | 56 45 52 54 29 0d 09 20 | & CF_IN|VERT).. |
|00000850| 20 20 20 28 76 6f 69 64 | 29 73 74 72 63 61 74 28 |   (void|)strcat(|
|00000860| 62 75 66 2c 22 49 4e 56 | 45 52 54 2c 22 29 3b 0d |buf,"INV|ERT,");.|
|00000870| 09 69 66 20 28 63 6d 64 | 2d 3e 63 5f 66 6c 61 67 |.if (cmd|->c_flag|
|00000880| 73 20 26 20 43 46 5f 4f | 4e 43 45 29 0d 09 20 20 |s & CF_O|NCE)..  |
|00000890| 20 20 28 76 6f 69 64 29 | 73 74 72 63 61 74 28 62 |  (void)|strcat(b|
|000008a0| 75 66 2c 22 4f 4e 43 45 | 2c 22 29 3b 0d 09 69 66 |uf,"ONCE|,");..if|
|000008b0| 20 28 63 6d 64 2d 3e 63 | 5f 66 6c 61 67 73 20 26 | (cmd->c|_flags &|
|000008c0| 20 43 46 5f 46 4c 49 50 | 29 0d 09 20 20 20 20 28 | CF_FLIP|)..    (|
|000008d0| 76 6f 69 64 29 73 74 72 | 63 61 74 28 62 75 66 2c |void)str|cat(buf,|
|000008e0| 22 46 4c 49 50 2c 22 29 | 3b 0d 09 69 66 20 28 63 |"FLIP,")|;..if (c|
|000008f0| 6d 64 2d 3e 63 5f 66 6c | 61 67 73 20 26 20 43 46 |md->c_fl|ags & CF|
|00000900| 5f 54 45 52 4d 29 0d 09 | 20 20 20 20 28 76 6f 69 |_TERM)..|    (voi|
|00000910| 64 29 73 74 72 63 61 74 | 28 62 75 66 2c 22 54 45 |d)strcat|(buf,"TE|
|00000920| 52 4d 2c 22 29 3b 0d 09 | 69 66 20 28 2a 62 75 66 |RM,");..|if (*buf|
|00000930| 29 0d 09 20 20 20 20 62 | 75 66 5b 73 74 72 6c 65 |)..    b|uf[strle|
|00000940| 6e 28 62 75 66 29 2d 31 | 5d 20 3d 20 27 5c 30 27 |n(buf)-1|] = '\0'|
|00000950| 3b 0d 09 64 75 6d 70 28 | 22 43 5f 46 4c 41 47 53 |;..dump(|"C_FLAGS|
|00000960| 20 3d 20 28 25 73 29 5c | 6e 22 2c 62 75 66 29 3b | = (%s)\|n",buf);|
|00000970| 0d 09 69 66 20 28 63 6d | 64 2d 3e 63 5f 73 68 6f |..if (cm|d->c_sho|
|00000980| 72 74 29 20 7b 0d 09 20 | 20 20 20 64 75 6d 70 28 |rt) {.. |   dump(|
|00000990| 22 43 5f 53 48 4f 52 54 | 20 3d 20 5c 22 25 73 5c |"C_SHORT| = \"%s\|
|000009a0| 22 5c 6e 22 2c 73 74 72 | 5f 70 65 65 6b 28 63 6d |"\n",str|_peek(cm|
|000009b0| 64 2d 3e 63 5f 73 68 6f | 72 74 29 29 3b 0d 09 20 |d->c_sho|rt));.. |
|000009c0| 20 20 20 64 75 6d 70 28 | 22 43 5f 53 4c 45 4e 20 |   dump(|"C_SLEN |
|000009d0| 3d 20 5c 22 25 64 5c 22 | 5c 6e 22 2c 63 6d 64 2d |= \"%d\"|\n",cmd-|
|000009e0| 3e 63 5f 73 6c 65 6e 29 | 3b 0d 09 7d 0d 09 69 66 |>c_slen)|;..}..if|
|000009f0| 20 28 63 6d 64 2d 3e 63 | 5f 73 74 61 62 29 20 7b | (cmd->c|_stab) {|
|00000a00| 0d 09 20 20 20 20 64 75 | 6d 70 28 22 43 5f 53 54 |..    du|mp("C_ST|
|00000a10| 41 42 20 3d 20 22 29 3b | 0d 09 20 20 20 20 64 75 |AB = ");|..    du|
|00000a20| 6d 70 5f 73 74 61 62 28 | 63 6d 64 2d 3e 63 5f 73 |mp_stab(|cmd->c_s|
|00000a30| 74 61 62 29 3b 0d 09 7d | 0d 09 69 66 20 28 63 6d |tab);..}|..if (cm|
|00000a40| 64 2d 3e 63 5f 73 70 61 | 74 29 20 7b 0d 09 20 20 |d->c_spa|t) {..  |
|00000a50| 20 20 64 75 6d 70 28 22 | 43 5f 53 50 41 54 20 3d |  dump("|C_SPAT =|
|00000a60| 20 22 29 3b 0d 09 20 20 | 20 20 64 75 6d 70 5f 73 | ");..  |  dump_s|
|00000a70| 70 61 74 28 63 6d 64 2d | 3e 63 5f 73 70 61 74 29 |pat(cmd-|>c_spat)|
|00000a80| 3b 0d 09 7d 0d 09 69 66 | 20 28 63 6d 64 2d 3e 63 |;..}..if| (cmd->c|
|00000a90| 5f 65 78 70 72 29 20 7b | 0d 09 20 20 20 20 64 75 |_expr) {|..    du|
|00000aa0| 6d 70 28 22 43 5f 45 58 | 50 52 20 3d 20 22 29 3b |mp("C_EX|PR = ");|
|00000ab0| 0d 09 20 20 20 20 64 75 | 6d 70 5f 61 72 67 28 63 |..    du|mp_arg(c|
|00000ac0| 6d 64 2d 3e 63 5f 65 78 | 70 72 29 3b 0d 09 7d 20 |md->c_ex|pr);..} |
|00000ad0| 65 6c 73 65 0d 09 20 20 | 20 20 64 75 6d 70 28 22 |else..  |  dump("|
|00000ae0| 43 5f 45 58 50 52 20 3d | 20 4e 55 4c 4c 5c 6e 22 |C_EXPR =| NULL\n"|
|00000af0| 29 3b 0d 09 73 77 69 74 | 63 68 20 28 63 6d 64 2d |);..swit|ch (cmd-|
|00000b00| 3e 63 5f 74 79 70 65 29 | 20 7b 0d 09 63 61 73 65 |>c_type)| {..case|
|00000b10| 20 43 5f 4e 45 58 54 3a | 0d 09 63 61 73 65 20 43 | C_NEXT:|..case C|
|00000b20| 5f 57 48 49 4c 45 3a 0d | 09 63 61 73 65 20 43 5f |_WHILE:.|.case C_|
|00000b30| 42 4c 4f 43 4b 3a 0d 09 | 63 61 73 65 20 43 5f 45 |BLOCK:..|case C_E|
|00000b40| 4c 53 45 3a 0d 09 63 61 | 73 65 20 43 5f 49 46 3a |LSE:..ca|se C_IF:|
|00000b50| 0d 09 20 20 20 20 69 66 | 20 28 63 6d 64 2d 3e 75 |..    if| (cmd->u|
|00000b60| 63 6d 64 2e 63 63 6d 64 | 2e 63 63 5f 74 72 75 65 |cmd.ccmd|.cc_true|
|00000b70| 29 20 7b 0d 09 09 64 75 | 6d 70 28 22 43 43 5f 54 |) {...du|mp("CC_T|
|00000b80| 52 55 45 20 3d 20 22 29 | 3b 0d 09 09 64 75 6d 70 |RUE = ")|;...dump|
|00000b90| 5f 63 6d 64 28 63 6d 64 | 2d 3e 75 63 6d 64 2e 63 |_cmd(cmd|->ucmd.c|
|00000ba0| 63 6d 64 2e 63 63 5f 74 | 72 75 65 2c 63 6d 64 2d |cmd.cc_t|rue,cmd-|
|00000bb0| 3e 75 63 6d 64 2e 63 63 | 6d 64 2e 63 63 5f 61 6c |>ucmd.cc|md.cc_al|
|00000bc0| 74 29 3b 0d 09 20 20 20 | 20 7d 0d 09 20 20 20 20 |t);..   | }..    |
|00000bd0| 65 6c 73 65 0d 09 09 64 | 75 6d 70 28 22 43 43 5f |else...d|ump("CC_|
|00000be0| 54 52 55 45 20 3d 20 4e | 55 4c 4c 5c 6e 22 29 3b |TRUE = N|ULL\n");|
|00000bf0| 0d 09 20 20 20 20 69 66 | 20 28 63 6d 64 2d 3e 63 |..    if| (cmd->c|
|00000c00| 5f 74 79 70 65 20 3d 3d | 20 43 5f 49 46 20 26 26 |_type ==| C_IF &&|
|00000c10| 20 63 6d 64 2d 3e 75 63 | 6d 64 2e 63 63 6d 64 2e | cmd->uc|md.ccmd.|
|00000c20| 63 63 5f 61 6c 74 29 20 | 7b 0d 09 09 64 75 6d 70 |cc_alt) |{...dump|
|00000c30| 28 22 43 43 5f 45 4e 44 | 45 4c 53 45 20 3d 20 30 |("CC_END|ELSE = 0|
|00000c40| 78 25 6c 78 5c 6e 22 2c | 63 6d 64 2d 3e 75 63 6d |x%lx\n",|cmd->ucm|
|00000c50| 64 2e 63 63 6d 64 2e 63 | 63 5f 61 6c 74 29 3b 0d |d.ccmd.c|c_alt);.|
|00000c60| 09 20 20 20 20 7d 0d 09 | 20 20 20 20 65 6c 73 65 |.    }..|    else|
|00000c70| 20 69 66 20 28 63 6d 64 | 2d 3e 63 5f 74 79 70 65 | if (cmd|->c_type|
|00000c80| 20 3d 3d 20 43 5f 4e 45 | 58 54 20 26 26 20 63 6d | == C_NE|XT && cm|
|00000c90| 64 2d 3e 75 63 6d 64 2e | 63 63 6d 64 2e 63 63 5f |d->ucmd.|ccmd.cc_|
|00000ca0| 61 6c 74 29 20 7b 0d 09 | 09 64 75 6d 70 28 22 43 |alt) {..|.dump("C|
|00000cb0| 43 5f 4e 45 58 54 20 3d | 20 30 78 25 6c 78 5c 6e |C_NEXT =| 0x%lx\n|
|00000cc0| 22 2c 63 6d 64 2d 3e 75 | 63 6d 64 2e 63 63 6d 64 |",cmd->u|cmd.ccmd|
|00000cd0| 2e 63 63 5f 61 6c 74 29 | 3b 0d 09 20 20 20 20 7d |.cc_alt)|;..    }|
|00000ce0| 0d 09 20 20 20 20 65 6c | 73 65 0d 09 09 64 75 6d |..    el|se...dum|
|00000cf0| 70 28 22 43 43 5f 41 4c | 54 20 3d 20 4e 55 4c 4c |p("CC_AL|T = NULL|
|00000d00| 5c 6e 22 29 3b 0d 09 20 | 20 20 20 62 72 65 61 6b |\n");.. |   break|
|00000d10| 3b 0d 09 63 61 73 65 20 | 43 5f 45 58 50 52 3a 0d |;..case |C_EXPR:.|
|00000d20| 09 20 20 20 20 69 66 20 | 28 63 6d 64 2d 3e 75 63 |.    if |(cmd->uc|
|00000d30| 6d 64 2e 61 63 6d 64 2e | 61 63 5f 73 74 61 62 29 |md.acmd.|ac_stab)|
|00000d40| 20 7b 0d 09 09 64 75 6d | 70 28 22 41 43 5f 53 54 | {...dum|p("AC_ST|
|00000d50| 41 42 20 3d 20 22 29 3b | 0d 09 09 64 75 6d 70 5f |AB = ");|...dump_|
|00000d60| 73 74 61 62 28 63 6d 64 | 2d 3e 75 63 6d 64 2e 61 |stab(cmd|->ucmd.a|
|00000d70| 63 6d 64 2e 61 63 5f 73 | 74 61 62 29 3b 0d 09 20 |cmd.ac_s|tab);.. |
|00000d80| 20 20 20 7d 20 65 6c 73 | 65 0d 09 09 64 75 6d 70 |   } els|e...dump|
|00000d90| 28 22 41 43 5f 53 54 41 | 42 20 3d 20 4e 55 4c 4c |("AC_STA|B = NULL|
|00000da0| 5c 6e 22 29 3b 0d 09 20 | 20 20 20 69 66 20 28 63 |\n");.. |   if (c|
|00000db0| 6d 64 2d 3e 75 63 6d 64 | 2e 61 63 6d 64 2e 61 63 |md->ucmd|.acmd.ac|
|00000dc0| 5f 65 78 70 72 29 20 7b | 0d 09 09 64 75 6d 70 28 |_expr) {|...dump(|
|00000dd0| 22 41 43 5f 45 58 50 52 | 20 3d 20 22 29 3b 0d 09 |"AC_EXPR| = ");..|
|00000de0| 09 64 75 6d 70 5f 61 72 | 67 28 63 6d 64 2d 3e 75 |.dump_ar|g(cmd->u|
|00000df0| 63 6d 64 2e 61 63 6d 64 | 2e 61 63 5f 65 78 70 72 |cmd.acmd|.ac_expr|
|00000e00| 29 3b 0d 09 20 20 20 20 | 7d 20 65 6c 73 65 0d 09 |);..    |} else..|
|00000e10| 09 64 75 6d 70 28 22 41 | 43 5f 45 58 50 52 20 3d |.dump("A|C_EXPR =|
|00000e20| 20 4e 55 4c 4c 5c 6e 22 | 29 3b 0d 09 20 20 20 20 | NULL\n"|);..    |
|00000e30| 62 72 65 61 6b 3b 0d 09 | 63 61 73 65 20 43 5f 43 |break;..|case C_C|
|00000e40| 53 57 49 54 43 48 3a 0d | 09 63 61 73 65 20 43 5f |SWITCH:.|.case C_|
|00000e50| 4e 53 57 49 54 43 48 3a | 0d 09 20 20 20 20 7b 0d |NSWITCH:|..    {.|
|00000e60| 09 09 69 6e 74 20 6d 61 | 78 2c 20 69 3b 0d 0d 09 |..int ma|x, i;...|
|00000e70| 09 6d 61 78 20 3d 20 63 | 6d 64 2d 3e 75 63 6d 64 |.max = c|md->ucmd|
|00000e80| 2e 73 63 6d 64 2e 73 63 | 5f 6d 61 78 3b 0d 09 09 |.scmd.sc|_max;...|
|00000e90| 64 75 6d 70 28 22 53 43 | 5f 4d 49 4e 20 3d 20 28 |dump("SC|_MIN = (|
|00000ea0| 25 64 29 5c 6e 22 2c 63 | 6d 64 2d 3e 75 63 6d 64 |%d)\n",c|md->ucmd|
|00000eb0| 2e 73 63 6d 64 2e 73 63 | 5f 6f 66 66 73 65 74 20 |.scmd.sc|_offset |
|00000ec0| 2b 20 31 29 3b 0d 09 09 | 64 75 6d 70 28 22 53 43 |+ 1);...|dump("SC|
|00000ed0| 5f 4d 41 58 20 3d 20 28 | 25 64 29 5c 6e 22 2c 20 |_MAX = (|%d)\n", |
|00000ee0| 6d 61 78 20 2b 20 63 6d | 64 2d 3e 75 63 6d 64 2e |max + cm|d->ucmd.|
|00000ef0| 73 63 6d 64 2e 73 63 5f | 6f 66 66 73 65 74 20 2d |scmd.sc_|offset -|
|00000f00| 20 31 29 3b 0d 09 09 64 | 75 6d 70 28 22 53 43 5f | 1);...d|ump("SC_|
|00000f10| 4e 45 58 54 5b 4c 54 5d | 20 3d 20 30 78 25 6c 78 |NEXT[LT]| = 0x%lx|
|00000f20| 5c 6e 22 2c 20 63 6d 64 | 2d 3e 75 63 6d 64 2e 73 |\n", cmd|->ucmd.s|
|00000f30| 63 6d 64 2e 73 63 5f 6e | 65 78 74 5b 30 5d 29 3b |cmd.sc_n|ext[0]);|
|00000f40| 0d 09 09 66 6f 72 20 28 | 69 20 3d 20 31 3b 20 69 |...for (|i = 1; i|
|00000f50| 20 3c 20 6d 61 78 3b 20 | 69 2b 2b 29 0d 09 09 20 | < max; |i++)... |
|00000f60| 20 20 20 64 75 6d 70 28 | 22 53 43 5f 4e 45 58 54 |   dump(|"SC_NEXT|
|00000f70| 5b 25 64 5d 20 3d 20 30 | 78 25 6c 78 5c 6e 22 2c |[%d] = 0|x%lx\n",|
|00000f80| 20 69 20 2b 20 63 6d 64 | 2d 3e 75 63 6d 64 2e 73 | i + cmd|->ucmd.s|
|00000f90| 63 6d 64 2e 73 63 5f 6f | 66 66 73 65 74 2c 0d 09 |cmd.sc_o|ffset,..|
|00000fa0| 09 20 20 20 20 20 20 63 | 6d 64 2d 3e 75 63 6d 64 |.      c|md->ucmd|
|00000fb0| 2e 73 63 6d 64 2e 73 63 | 5f 6e 65 78 74 5b 69 5d |.scmd.sc|_next[i]|
|00000fc0| 29 3b 0d 09 09 64 75 6d | 70 28 22 53 43 5f 4e 45 |);...dum|p("SC_NE|
|00000fd0| 58 54 5b 47 54 5d 20 3d | 20 30 78 25 6c 78 5c 6e |XT[GT] =| 0x%lx\n|
|00000fe0| 22 2c 20 63 6d 64 2d 3e | 75 63 6d 64 2e 73 63 6d |", cmd->|ucmd.scm|
|00000ff0| 64 2e 73 63 5f 6e 65 78 | 74 5b 6d 61 78 5d 29 3b |d.sc_nex|t[max]);|
|00001000| 0d 09 20 20 20 20 7d 0d | 09 20 20 20 20 62 72 65 |..    }.|.    bre|
|00001010| 61 6b 3b 0d 09 7d 0d 09 | 63 6d 64 20 3d 20 63 6d |ak;..}..|cmd = cm|
|00001020| 64 2d 3e 63 5f 6e 65 78 | 74 3b 0d 09 69 66 20 28 |d->c_nex|t;..if (|
|00001030| 63 6d 64 20 26 26 20 63 | 6d 64 2d 3e 63 5f 68 65 |cmd && c|md->c_he|
|00001040| 61 64 20 3d 3d 20 63 6d | 64 29 20 7b 09 2f 2a 20 |ad == cm|d) {./* |
|00001050| 72 65 61 63 68 65 64 20 | 65 6e 64 20 6f 66 20 77 |reached |end of w|
|00001060| 68 69 6c 65 20 6c 6f 6f | 70 20 2a 2f 0d 09 20 20 |hile loo|p */..  |
|00001070| 20 20 64 75 6d 70 28 22 | 43 5f 4e 45 58 54 20 3d |  dump("|C_NEXT =|
|00001080| 20 48 45 41 44 5c 6e 22 | 29 3b 0d 09 20 20 20 20 | HEAD\n"|);..    |
|00001090| 64 75 6d 70 6c 76 6c 2d | 2d 3b 0d 09 20 20 20 20 |dumplvl-|-;..    |
|000010a0| 64 75 6d 70 28 22 7d 5c | 6e 22 29 3b 0d 09 20 20 |dump("}\|n");..  |
|000010b0| 20 20 62 72 65 61 6b 3b | 0d 09 7d 0d 09 64 75 6d |  break;|..}..dum|
|000010c0| 70 6c 76 6c 2d 2d 3b 0d | 09 64 75 6d 70 28 22 7d |plvl--;.|.dump("}|
|000010d0| 5c 6e 22 29 3b 0d 09 69 | 66 20 28 63 6d 64 29 0d |\n");..i|f (cmd).|
|000010e0| 09 20 20 20 20 69 66 20 | 28 63 6d 64 20 3d 3d 20 |.    if |(cmd == |
|000010f0| 61 6c 74 29 0d 09 09 64 | 75 6d 70 28 22 43 4f 4e |alt)...d|ump("CON|
|00001100| 54 20 30 78 25 6c 78 20 | 7b 5c 6e 22 2c 63 6d 64 |T 0x%lx |{\n",cmd|
|00001110| 29 3b 0d 09 20 20 20 20 | 65 6c 73 65 0d 09 09 64 |);..    |else...d|
|00001120| 75 6d 70 28 22 7b 5c 6e | 22 29 3b 0d 20 20 20 20 |ump("{\n|");.    |
|00001130| 7d 0d 7d 0d 0d 76 6f 69 | 64 0d 64 75 6d 70 5f 61 |}.}..voi|d.dump_a|
|00001140| 72 67 28 61 72 67 29 0d | 72 65 67 69 73 74 65 72 |rg(arg).|register|
|00001150| 20 41 52 47 20 2a 61 72 | 67 3b 0d 7b 0d 20 20 20 | ARG *ar|g;.{.   |
|00001160| 20 72 65 67 69 73 74 65 | 72 20 69 6e 74 20 69 3b | registe|r int i;|
|00001170| 0d 0d 23 69 66 64 65 66 | 20 6d 61 63 69 6e 74 6f |..#ifdef| macinto|
|00001180| 73 68 0d 20 20 20 20 66 | 70 72 69 6e 74 66 28 70 |sh.    f|printf(p|
|00001190| 65 72 6c 64 62 67 2c 22 | 7b 5c 6e 22 29 3b 0d 23 |erldbg,"|{\n");.#|
|000011a0| 65 6c 73 65 0d 20 20 20 | 20 66 70 72 69 6e 74 66 |else.   | fprintf|
|000011b0| 28 73 74 64 65 72 72 2c | 22 7b 5c 6e 22 29 3b 0d |(stderr,|"{\n");.|
|000011c0| 23 65 6e 64 69 66 0d 20 | 20 20 20 64 75 6d 70 6c |#endif. |   dumpl|
|000011d0| 76 6c 2b 2b 3b 0d 20 20 | 20 20 64 75 6d 70 28 22 |vl++;.  |  dump("|
|000011e0| 4f 50 5f 54 59 50 45 20 | 3d 20 25 73 5c 6e 22 2c |OP_TYPE |= %s\n",|
|000011f0| 6f 70 6e 61 6d 65 5b 61 | 72 67 2d 3e 61 72 67 5f |opname[a|rg->arg_|
|00001200| 74 79 70 65 5d 29 3b 0d | 20 20 20 20 64 75 6d 70 |type]);.|    dump|
|00001210| 28 22 4f 50 5f 4c 45 4e | 20 3d 20 25 64 5c 6e 22 |("OP_LEN| = %d\n"|
|00001220| 2c 61 72 67 2d 3e 61 72 | 67 5f 6c 65 6e 29 3b 0d |,arg->ar|g_len);.|
|00001230| 20 20 20 20 69 66 20 28 | 61 72 67 2d 3e 61 72 67 |    if (|arg->arg|
|00001240| 5f 66 6c 61 67 73 29 20 | 7b 0d 09 64 75 6d 70 5f |_flags) |{..dump_|
|00001250| 66 6c 61 67 73 28 62 75 | 66 2c 61 72 67 2d 3e 61 |flags(bu|f,arg->a|
|00001260| 72 67 5f 66 6c 61 67 73 | 29 3b 0d 09 64 75 6d 70 |rg_flags|);..dump|
|00001270| 28 22 4f 50 5f 46 4c 41 | 47 53 20 3d 20 28 25 73 |("OP_FLA|GS = (%s|
|00001280| 29 5c 6e 22 2c 62 75 66 | 29 3b 0d 20 20 20 20 7d |)\n",buf|);.    }|
|00001290| 0d 20 20 20 20 66 6f 72 | 20 28 69 20 3d 20 31 3b |.    for| (i = 1;|
|000012a0| 20 69 20 3c 3d 20 61 72 | 67 2d 3e 61 72 67 5f 6c | i <= ar|g->arg_l|
|000012b0| 65 6e 3b 20 69 2b 2b 29 | 20 7b 0d 09 64 75 6d 70 |en; i++)| {..dump|
|000012c0| 28 22 5b 25 64 5d 41 52 | 47 5f 54 59 50 45 20 3d |("[%d]AR|G_TYPE =|
|000012d0| 20 25 73 25 73 5c 6e 22 | 2c 69 2c 61 72 67 6e 61 | %s%s\n"|,i,argna|
|000012e0| 6d 65 5b 61 72 67 5b 69 | 5d 2e 61 72 67 5f 74 79 |me[arg[i|].arg_ty|
|000012f0| 70 65 20 26 20 41 5f 4d | 41 53 4b 5d 2c 0d 09 20 |pe & A_M|ASK],.. |
|00001300| 20 20 20 61 72 67 5b 69 | 5d 2e 61 72 67 5f 74 79 |   arg[i|].arg_ty|
|00001310| 70 65 20 26 20 41 5f 44 | 4f 4e 54 20 3f 20 22 20 |pe & A_D|ONT ? " |
|00001320| 28 75 6e 65 76 61 6c 75 | 61 74 65 64 29 22 20 3a |(unevalu|ated)" :|
|00001330| 20 22 22 29 3b 0d 09 69 | 66 20 28 61 72 67 5b 69 | "");..i|f (arg[i|
|00001340| 5d 2e 61 72 67 5f 6c 65 | 6e 29 0d 09 20 20 20 20 |].arg_le|n)..    |
|00001350| 64 75 6d 70 28 22 5b 25 | 64 5d 41 52 47 5f 4c 45 |dump("[%|d]ARG_LE|
|00001360| 4e 20 3d 20 25 64 5c 6e | 22 2c 69 2c 61 72 67 5b |N = %d\n|",i,arg[|
|00001370| 69 5d 2e 61 72 67 5f 6c | 65 6e 29 3b 0d 09 69 66 |i].arg_l|en);..if|
|00001380| 20 28 61 72 67 5b 69 5d | 2e 61 72 67 5f 66 6c 61 | (arg[i]|.arg_fla|
|00001390| 67 73 29 20 7b 0d 09 20 | 20 20 20 64 75 6d 70 5f |gs) {.. |   dump_|
|000013a0| 66 6c 61 67 73 28 62 75 | 66 2c 61 72 67 5b 69 5d |flags(bu|f,arg[i]|
|000013b0| 2e 61 72 67 5f 66 6c 61 | 67 73 29 3b 0d 09 20 20 |.arg_fla|gs);..  |
|000013c0| 20 20 64 75 6d 70 28 22 | 5b 25 64 5d 41 52 47 5f |  dump("|[%d]ARG_|
|000013d0| 46 4c 41 47 53 20 3d 20 | 28 25 73 29 5c 6e 22 2c |FLAGS = |(%s)\n",|
|000013e0| 69 2c 62 75 66 29 3b 0d | 09 7d 0d 09 73 77 69 74 |i,buf);.|.}..swit|
|000013f0| 63 68 20 28 61 72 67 5b | 69 5d 2e 61 72 67 5f 74 |ch (arg[|i].arg_t|
|00001400| 79 70 65 20 26 20 41 5f | 4d 41 53 4b 29 20 7b 0d |ype & A_|MASK) {.|
|00001410| 09 63 61 73 65 20 41 5f | 4e 55 4c 4c 3a 0d 09 20 |.case A_|NULL:.. |
|00001420| 20 20 20 69 66 20 28 61 | 72 67 2d 3e 61 72 67 5f |   if (a|rg->arg_|
|00001430| 74 79 70 65 20 3d 3d 20 | 4f 5f 54 52 41 4e 53 29 |type == |O_TRANS)|
|00001440| 20 7b 0d 09 09 73 68 6f | 72 74 20 2a 74 62 6c 20 | {...sho|rt *tbl |
|00001450| 3d 20 28 73 68 6f 72 74 | 2a 29 61 72 67 5b 32 5d |= (short|*)arg[2]|
|00001460| 2e 61 72 67 5f 70 74 72 | 2e 61 72 67 5f 63 76 61 |.arg_ptr|.arg_cva|
|00001470| 6c 3b 0d 09 09 69 6e 74 | 20 69 3b 0d 0d 09 09 66 |l;...int| i;....f|
|00001480| 6f 72 20 28 69 20 3d 20 | 30 3b 20 69 20 3c 20 32 |or (i = |0; i < 2|
|00001490| 35 36 3b 20 69 2b 2b 29 | 20 7b 0d 09 09 20 20 20 |56; i++)| {...   |
|000014a0| 20 69 66 20 28 74 62 6c | 5b 69 5d 20 3e 3d 20 30 | if (tbl|[i] >= 0|
|000014b0| 29 0d 09 09 09 64 75 6d | 70 28 22 20 20 20 25 64 |)....dum|p("   %d|
|000014c0| 20 2d 3e 20 25 64 5c 6e | 22 2c 20 69 2c 20 74 62 | -> %d\n|", i, tb|
|000014d0| 6c 5b 69 5d 29 3b 0d 09 | 09 20 20 20 20 65 6c 73 |l[i]);..|.    els|
|000014e0| 65 20 69 66 20 28 74 62 | 6c 5b 69 5d 20 3d 3d 20 |e if (tb|l[i] == |
|000014f0| 2d 32 29 0d 09 09 09 64 | 75 6d 70 28 22 20 20 20 |-2)....d|ump("   |
|00001500| 25 64 20 2d 3e 20 44 45 | 4c 45 54 45 5c 6e 22 2c |%d -> DE|LETE\n",|
|00001510| 20 69 29 3b 0d 09 09 7d | 0d 09 20 20 20 20 7d 0d | i);...}|..    }.|
|00001520| 09 20 20 20 20 62 72 65 | 61 6b 3b 0d 09 63 61 73 |.    bre|ak;..cas|
|00001530| 65 20 41 5f 4c 45 58 50 | 52 3a 0d 09 63 61 73 65 |e A_LEXP|R:..case|
|00001540| 20 41 5f 45 58 50 52 3a | 0d 09 20 20 20 20 64 75 | A_EXPR:|..    du|
|00001550| 6d 70 28 22 5b 25 64 5d | 41 52 47 5f 41 52 47 20 |mp("[%d]|ARG_ARG |
|00001560| 3d 20 22 2c 69 29 3b 0d | 09 20 20 20 20 64 75 6d |= ",i);.|.    dum|
|00001570| 70 5f 61 72 67 28 61 72 | 67 5b 69 5d 2e 61 72 67 |p_arg(ar|g[i].arg|
|00001580| 5f 70 74 72 2e 61 72 67 | 5f 61 72 67 29 3b 0d 09 |_ptr.arg|_arg);..|
|00001590| 20 20 20 20 62 72 65 61 | 6b 3b 0d 09 63 61 73 65 |    brea|k;..case|
|000015a0| 20 41 5f 43 4d 44 3a 0d | 09 20 20 20 20 64 75 6d | A_CMD:.|.    dum|
|000015b0| 70 28 22 5b 25 64 5d 41 | 52 47 5f 43 4d 44 20 3d |p("[%d]A|RG_CMD =|
|000015c0| 20 22 2c 69 29 3b 0d 09 | 20 20 20 20 64 75 6d 70 | ",i);..|    dump|
|000015d0| 5f 63 6d 64 28 61 72 67 | 5b 69 5d 2e 61 72 67 5f |_cmd(arg|[i].arg_|
|000015e0| 70 74 72 2e 61 72 67 5f | 63 6d 64 2c 4e 75 6c 6c |ptr.arg_|cmd,Null|
|000015f0| 63 6d 64 29 3b 0d 09 20 | 20 20 20 62 72 65 61 6b |cmd);.. |   break|
|00001600| 3b 0d 09 63 61 73 65 20 | 41 5f 57 4f 52 44 3a 0d |;..case |A_WORD:.|
|00001610| 09 63 61 73 65 20 41 5f | 53 54 41 42 3a 0d 09 63 |.case A_|STAB:..c|
|00001620| 61 73 65 20 41 5f 4c 56 | 41 4c 3a 0d 09 63 61 73 |ase A_LV|AL:..cas|
|00001630| 65 20 41 5f 52 45 41 44 | 3a 0d 09 63 61 73 65 20 |e A_READ|:..case |
|00001640| 41 5f 47 4c 4f 42 3a 0d | 09 63 61 73 65 20 41 5f |A_GLOB:.|.case A_|
|00001650| 41 52 59 4c 45 4e 3a 0d | 09 63 61 73 65 20 41 5f |ARYLEN:.|.case A_|
|00001660| 41 52 59 53 54 41 42 3a | 0d 09 63 61 73 65 20 41 |ARYSTAB:|..case A|
|00001670| 5f 4c 41 52 59 53 54 41 | 42 3a 0d 09 20 20 20 20 |_LARYSTA|B:..    |
|00001680| 64 75 6d 70 28 22 5b 25 | 64 5d 41 52 47 5f 53 54 |dump("[%|d]ARG_ST|
|00001690| 41 42 20 3d 20 22 2c 69 | 29 3b 0d 09 20 20 20 20 |AB = ",i|);..    |
|000016a0| 64 75 6d 70 5f 73 74 61 | 62 28 61 72 67 5b 69 5d |dump_sta|b(arg[i]|
|000016b0| 2e 61 72 67 5f 70 74 72 | 2e 61 72 67 5f 73 74 61 |.arg_ptr|.arg_sta|
|000016c0| 62 29 3b 0d 09 20 20 20 | 20 62 72 65 61 6b 3b 0d |b);..   | break;.|
|000016d0| 09 63 61 73 65 20 41 5f | 53 49 4e 47 4c 45 3a 0d |.case A_|SINGLE:.|
|000016e0| 09 63 61 73 65 20 41 5f | 44 4f 55 42 4c 45 3a 0d |.case A_|DOUBLE:.|
|000016f0| 09 63 61 73 65 20 41 5f | 42 41 43 4b 54 49 43 4b |.case A_|BACKTICK|
|00001700| 3a 0d 09 20 20 20 20 64 | 75 6d 70 28 22 5b 25 64 |:..    d|ump("[%d|
|00001710| 5d 41 52 47 5f 53 54 52 | 20 3d 20 27 25 73 27 5c |]ARG_STR| = '%s'\|
|00001720| 6e 22 2c 69 2c 73 74 72 | 5f 70 65 65 6b 28 61 72 |n",i,str|_peek(ar|
|00001730| 67 5b 69 5d 2e 61 72 67 | 5f 70 74 72 2e 61 72 67 |g[i].arg|_ptr.arg|
|00001740| 5f 73 74 72 29 29 3b 0d | 09 20 20 20 20 62 72 65 |_str));.|.    bre|
|00001750| 61 6b 3b 0d 09 63 61 73 | 65 20 41 5f 53 50 41 54 |ak;..cas|e A_SPAT|
|00001760| 3a 0d 09 20 20 20 20 64 | 75 6d 70 28 22 5b 25 64 |:..    d|ump("[%d|
|00001770| 5d 41 52 47 5f 53 50 41 | 54 20 3d 20 22 2c 69 29 |]ARG_SPA|T = ",i)|
|00001780| 3b 0d 09 20 20 20 20 64 | 75 6d 70 5f 73 70 61 74 |;..    d|ump_spat|
|00001790| 28 61 72 67 5b 69 5d 2e | 61 72 67 5f 70 74 72 2e |(arg[i].|arg_ptr.|
|000017a0| 61 72 67 5f 73 70 61 74 | 29 3b 0d 09 20 20 20 20 |arg_spat|);..    |
|000017b0| 62 72 65 61 6b 3b 0d 09 | 7d 0d 20 20 20 20 7d 0d |break;..|}.    }.|
|000017c0| 20 20 20 20 64 75 6d 70 | 6c 76 6c 2d 2d 3b 0d 20 |    dump|lvl--;. |
|000017d0| 20 20 20 64 75 6d 70 28 | 22 7d 5c 6e 22 29 3b 0d |   dump(|"}\n");.|
|000017e0| 7d 0d 0d 76 6f 69 64 0d | 64 75 6d 70 5f 66 6c 61 |}..void.|dump_fla|
|000017f0| 67 73 28 62 2c 66 6c 61 | 67 73 29 0d 63 68 61 72 |gs(b,fla|gs).char|
|00001800| 20 2a 62 3b 0d 75 6e 73 | 69 67 6e 65 64 20 69 6e | *b;.uns|igned in|
|00001810| 74 20 66 6c 61 67 73 3b | 0d 7b 0d 20 20 20 20 2a |t flags;|.{.    *|
|00001820| 62 20 3d 20 27 5c 30 27 | 3b 0d 20 20 20 20 69 66 |b = '\0'|;.    if|
|00001830| 20 28 66 6c 61 67 73 20 | 26 20 41 46 5f 41 52 59 | (flags |& AF_ARY|
|00001840| 4f 4b 29 0d 09 28 76 6f | 69 64 29 73 74 72 63 61 |OK)..(vo|id)strca|
|00001850| 74 28 62 2c 22 41 52 59 | 4f 4b 2c 22 29 3b 0d 20 |t(b,"ARY|OK,");. |
|00001860| 20 20 20 69 66 20 28 66 | 6c 61 67 73 20 26 20 41 |   if (f|lags & A|
|00001870| 46 5f 50 4f 53 54 29 0d | 09 28 76 6f 69 64 29 73 |F_POST).|.(void)s|
|00001880| 74 72 63 61 74 28 62 2c | 22 50 4f 53 54 2c 22 29 |trcat(b,|"POST,")|
|00001890| 3b 0d 20 20 20 20 69 66 | 20 28 66 6c 61 67 73 20 |;.    if| (flags |
|000018a0| 26 20 41 46 5f 50 52 45 | 29 0d 09 28 76 6f 69 64 |& AF_PRE|)..(void|
|000018b0| 29 73 74 72 63 61 74 28 | 62 2c 22 50 52 45 2c 22 |)strcat(|b,"PRE,"|
|000018c0| 29 3b 0d 20 20 20 20 69 | 66 20 28 66 6c 61 67 73 |);.    i|f (flags|
|000018d0| 20 26 20 41 46 5f 55 50 | 29 0d 09 28 76 6f 69 64 | & AF_UP|)..(void|
|000018e0| 29 73 74 72 63 61 74 28 | 62 2c 22 55 50 2c 22 29 |)strcat(|b,"UP,")|
|000018f0| 3b 0d 20 20 20 20 69 66 | 20 28 66 6c 61 67 73 20 |;.    if| (flags |
|00001900| 26 20 41 46 5f 43 4f 4d | 4d 4f 4e 29 0d 09 28 76 |& AF_COM|MON)..(v|
|00001910| 6f 69 64 29 73 74 72 63 | 61 74 28 62 2c 22 43 4f |oid)strc|at(b,"CO|
|00001920| 4d 4d 4f 4e 2c 22 29 3b | 0d 20 20 20 20 69 66 20 |MMON,");|.    if |
|00001930| 28 66 6c 61 67 73 20 26 | 20 41 46 5f 44 45 50 52 |(flags &| AF_DEPR|
|00001940| 29 0d 09 28 76 6f 69 64 | 29 73 74 72 63 61 74 28 |)..(void|)strcat(|
|00001950| 62 2c 22 44 45 50 52 2c | 22 29 3b 0d 20 20 20 20 |b,"DEPR,|");.    |
|00001960| 69 66 20 28 66 6c 61 67 | 73 20 26 20 41 46 5f 4c |if (flag|s & AF_L|
|00001970| 49 53 54 49 53 48 29 0d | 09 28 76 6f 69 64 29 73 |ISTISH).|.(void)s|
|00001980| 74 72 63 61 74 28 62 2c | 22 4c 49 53 54 49 53 48 |trcat(b,|"LISTISH|
|00001990| 2c 22 29 3b 0d 20 20 20 | 20 69 66 20 28 66 6c 61 |,");.   | if (fla|
|000019a0| 67 73 20 26 20 41 46 5f | 4c 4f 43 41 4c 29 0d 09 |gs & AF_|LOCAL)..|
|000019b0| 28 76 6f 69 64 29 73 74 | 72 63 61 74 28 62 2c 22 |(void)st|rcat(b,"|
|000019c0| 4c 4f 43 41 4c 2c 22 29 | 3b 0d 20 20 20 20 69 66 |LOCAL,")|;.    if|
|000019d0| 20 28 2a 62 29 0d 09 62 | 5b 73 74 72 6c 65 6e 28 | (*b)..b|[strlen(|
|000019e0| 62 29 2d 31 5d 20 3d 20 | 27 5c 30 27 3b 0d 7d 0d |b)-1] = |'\0';.}.|
|000019f0| 0d 76 6f 69 64 0d 64 75 | 6d 70 5f 73 74 61 62 28 |.void.du|mp_stab(|
|00001a00| 73 74 61 62 29 0d 72 65 | 67 69 73 74 65 72 20 53 |stab).re|gister S|
|00001a10| 54 41 42 20 2a 73 74 61 | 62 3b 0d 7b 0d 20 20 20 |TAB *sta|b;.{.   |
|00001a20| 20 53 54 52 20 2a 73 74 | 72 3b 0d 0d 20 20 20 20 | STR *st|r;..    |
|00001a30| 69 66 20 28 21 73 74 61 | 62 29 20 7b 0d 23 69 66 |if (!sta|b) {.#if|
|00001a40| 64 65 66 20 6d 61 63 69 | 6e 74 6f 73 68 0d 09 66 |def maci|ntosh..f|
|00001a50| 70 72 69 6e 74 66 28 70 | 65 72 6c 64 62 67 2c 22 |printf(p|erldbg,"|
|00001a60| 7b 7d 5c 6e 22 29 3b 0d | 23 65 6c 73 65 0d 09 66 |{}\n");.|#else..f|
|00001a70| 70 72 69 6e 74 66 28 73 | 74 64 65 72 72 2c 22 7b |printf(s|tderr,"{|
|00001a80| 7d 5c 6e 22 29 3b 0d 23 | 65 6e 64 69 66 0d 09 72 |}\n");.#|endif..r|
|00001a90| 65 74 75 72 6e 3b 0d 20 | 20 20 20 7d 0d 20 20 20 |eturn;. |   }.   |
|00001aa0| 20 73 74 72 20 3d 20 73 | 74 72 5f 6d 6f 72 74 61 | str = s|tr_morta|
|00001ab0| 6c 28 26 73 74 72 5f 75 | 6e 64 65 66 29 3b 0d 20 |l(&str_u|ndef);. |
|00001ac0| 20 20 20 64 75 6d 70 6c | 76 6c 2b 2b 3b 0d 23 69 |   dumpl|vl++;.#i|
|00001ad0| 66 64 65 66 20 6d 61 63 | 69 6e 74 6f 73 68 0d 20 |fdef mac|intosh. |
|00001ae0| 20 20 20 66 70 72 69 6e | 74 66 28 70 65 72 6c 64 |   fprin|tf(perld|
|00001af0| 62 67 2c 22 7b 5c 6e 22 | 29 3b 0d 23 65 6c 73 65 |bg,"{\n"|);.#else|
|00001b00| 0d 20 20 20 20 66 70 72 | 69 6e 74 66 28 73 74 64 |.    fpr|intf(std|
|00001b10| 65 72 72 2c 22 7b 5c 6e | 22 29 3b 0d 23 65 6e 64 |err,"{\n|");.#end|
|00001b20| 69 66 0d 20 20 20 20 73 | 74 61 62 5f 66 75 6c 6c |if.    s|tab_full|
|00001b30| 6e 61 6d 65 28 73 74 72 | 2c 73 74 61 62 29 3b 0d |name(str|,stab);.|
|00001b40| 20 20 20 20 64 75 6d 70 | 28 22 53 54 41 42 5f 4e |    dump|("STAB_N|
|00001b50| 41 4d 45 20 3d 20 25 73 | 22 2c 20 73 74 72 2d 3e |AME = %s|", str->|
|00001b60| 73 74 72 5f 70 74 72 29 | 3b 0d 20 20 20 20 69 66 |str_ptr)|;.    if|
|00001b70| 20 28 73 74 61 62 20 21 | 3d 20 73 74 61 62 5f 65 | (stab !|= stab_e|
|00001b80| 73 74 61 62 28 73 74 61 | 62 29 29 20 7b 0d 09 73 |stab(sta|b)) {..s|
|00001b90| 74 61 62 5f 65 66 75 6c | 6c 6e 61 6d 65 28 73 74 |tab_eful|lname(st|
|00001ba0| 72 2c 73 74 61 62 5f 65 | 73 74 61 62 28 73 74 61 |r,stab_e|stab(sta|
|00001bb0| 62 29 29 3b 0d 09 64 75 | 6d 70 28 22 2d 3e 20 25 |b));..du|mp("-> %|
|00001bc0| 73 22 2c 20 73 74 72 2d | 3e 73 74 72 5f 70 74 72 |s", str-|>str_ptr|
|00001bd0| 29 3b 0d 20 20 20 20 7d | 0d 20 20 20 20 64 75 6d |);.    }|.    dum|
|00001be0| 70 28 22 5c 6e 22 29 3b | 0d 20 20 20 20 64 75 6d |p("\n");|.    dum|
|00001bf0| 70 6c 76 6c 2d 2d 3b 0d | 20 20 20 20 64 75 6d 70 |plvl--;.|    dump|
|00001c00| 28 22 7d 5c 6e 22 29 3b | 0d 7d 0d 0d 76 6f 69 64 |("}\n");|.}..void|
|00001c10| 0d 64 75 6d 70 5f 73 70 | 61 74 28 73 70 61 74 29 |.dump_sp|at(spat)|
|00001c20| 0d 72 65 67 69 73 74 65 | 72 20 53 50 41 54 20 2a |.registe|r SPAT *|
|00001c30| 73 70 61 74 3b 0d 7b 0d | 20 20 20 20 63 68 61 72 |spat;.{.|    char|
|00001c40| 20 63 68 3b 0d 0d 20 20 | 20 20 69 66 20 28 21 73 | ch;..  |  if (!s|
|00001c50| 70 61 74 29 20 7b 0d 23 | 69 66 64 65 66 20 6d 61 |pat) {.#|ifdef ma|
|00001c60| 63 69 6e 74 6f 73 68 0d | 09 66 70 72 69 6e 74 66 |cintosh.|.fprintf|
|00001c70| 28 70 65 72 6c 64 62 67 | 2c 22 7b 7d 5c 6e 22 29 |(perldbg|,"{}\n")|
|00001c80| 3b 0d 23 65 6c 73 65 0d | 09 66 70 72 69 6e 74 66 |;.#else.|.fprintf|
|00001c90| 28 73 74 64 65 72 72 2c | 22 7b 7d 5c 6e 22 29 3b |(stderr,|"{}\n");|
|00001ca0| 0d 23 65 6e 64 69 66 0d | 09 72 65 74 75 72 6e 3b |.#endif.|.return;|
|00001cb0| 0d 20 20 20 20 7d 0d 23 | 69 66 64 65 66 20 6d 61 |.    }.#|ifdef ma|
|00001cc0| 63 69 6e 74 6f 73 68 0d | 20 20 20 20 66 70 72 69 |cintosh.|    fpri|
|00001cd0| 6e 74 66 28 70 65 72 6c | 64 62 67 2c 22 7b 5c 6e |ntf(perl|dbg,"{\n|
|00001ce0| 22 29 3b 0d 23 65 6c 73 | 65 0d 20 20 20 20 66 70 |");.#els|e.    fp|
|00001cf0| 72 69 6e 74 66 28 73 74 | 64 65 72 72 2c 22 7b 5c |rintf(st|derr,"{\|
|00001d00| 6e 22 29 3b 0d 23 65 6e | 64 69 66 0d 20 20 20 20 |n");.#en|dif.    |
|00001d10| 64 75 6d 70 6c 76 6c 2b | 2b 3b 0d 20 20 20 20 69 |dumplvl+|+;.    i|
|00001d20| 66 20 28 73 70 61 74 2d | 3e 73 70 61 74 5f 72 75 |f (spat-|>spat_ru|
|00001d30| 6e 74 69 6d 65 29 20 7b | 0d 09 64 75 6d 70 28 22 |ntime) {|..dump("|
|00001d40| 53 50 41 54 5f 52 55 4e | 54 49 4d 45 20 3d 20 22 |SPAT_RUN|TIME = "|
|00001d50| 29 3b 0d 09 64 75 6d 70 | 5f 61 72 67 28 73 70 61 |);..dump|_arg(spa|
|00001d60| 74 2d 3e 73 70 61 74 5f | 72 75 6e 74 69 6d 65 29 |t->spat_|runtime)|
|00001d70| 3b 0d 20 20 20 20 7d 20 | 65 6c 73 65 20 7b 0d 09 |;.    } |else {..|
|00001d80| 69 66 20 28 73 70 61 74 | 2d 3e 73 70 61 74 5f 66 |if (spat|->spat_f|
|00001d90| 6c 61 67 73 20 26 20 53 | 50 41 54 5f 4f 4e 43 45 |lags & S|PAT_ONCE|
|00001da0| 29 0d 09 20 20 20 20 63 | 68 20 3d 20 27 3f 27 3b |)..    c|h = '?';|
|00001db0| 0d 09 65 6c 73 65 0d 09 | 20 20 20 20 63 68 20 3d |..else..|    ch =|
|00001dc0| 20 27 2f 27 3b 0d 09 64 | 75 6d 70 28 22 53 50 41 | '/';..d|ump("SPA|
|00001dd0| 54 5f 50 52 45 20 25 63 | 25 73 25 63 5c 6e 22 2c |T_PRE %c|%s%c\n",|
|00001de0| 63 68 2c 73 70 61 74 2d | 3e 73 70 61 74 5f 72 65 |ch,spat-|>spat_re|
|00001df0| 67 65 78 70 2d 3e 70 72 | 65 63 6f 6d 70 2c 63 68 |gexp->pr|ecomp,ch|
|00001e00| 29 3b 0d 20 20 20 20 7d | 0d 20 20 20 20 69 66 20 |);.    }|.    if |
|00001e10| 28 73 70 61 74 2d 3e 73 | 70 61 74 5f 72 65 70 6c |(spat->s|pat_repl|
|00001e20| 29 20 7b 0d 09 64 75 6d | 70 28 22 53 50 41 54 5f |) {..dum|p("SPAT_|
|00001e30| 52 45 50 4c 20 3d 20 22 | 29 3b 0d 09 64 75 6d 70 |REPL = "|);..dump|
|00001e40| 5f 61 72 67 28 73 70 61 | 74 2d 3e 73 70 61 74 5f |_arg(spa|t->spat_|
|00001e50| 72 65 70 6c 29 3b 0d 20 | 20 20 20 7d 0d 20 20 20 |repl);. |   }.   |
|00001e60| 20 69 66 20 28 73 70 61 | 74 2d 3e 73 70 61 74 5f | if (spa|t->spat_|
|00001e70| 73 68 6f 72 74 29 20 7b | 0d 09 64 75 6d 70 28 22 |short) {|..dump("|
|00001e80| 53 50 41 54 5f 53 48 4f | 52 54 20 3d 20 5c 22 25 |SPAT_SHO|RT = \"%|
|00001e90| 73 5c 22 5c 6e 22 2c 73 | 74 72 5f 70 65 65 6b 28 |s\"\n",s|tr_peek(|
|00001ea0| 73 70 61 74 2d 3e 73 70 | 61 74 5f 73 68 6f 72 74 |spat->sp|at_short|
|00001eb0| 29 29 3b 0d 20 20 20 20 | 7d 0d 20 20 20 20 64 75 |));.    |}.    du|
|00001ec0| 6d 70 6c 76 6c 2d 2d 3b | 0d 20 20 20 20 64 75 6d |mplvl--;|.    dum|
|00001ed0| 70 28 22 7d 5c 6e 22 29 | 3b 0d 7d 0d 0d 2f 2a 20 |p("}\n")|;.}../* |
|00001ee0| 56 41 52 41 52 47 53 31 | 20 2a 2f 0d 73 74 61 74 |VARARGS1| */.stat|
|00001ef0| 69 63 20 76 6f 69 64 20 | 64 75 6d 70 28 61 72 67 |ic void |dump(arg|
|00001f00| 31 2c 61 72 67 32 2c 61 | 72 67 33 2c 61 72 67 34 |1,arg2,a|rg3,arg4|
|00001f10| 2c 61 72 67 35 29 0d 63 | 68 61 72 20 2a 61 72 67 |,arg5).c|har *arg|
|00001f20| 31 3b 0d 6c 6f 6e 67 20 | 61 72 67 32 2c 20 61 72 |1;.long |arg2, ar|
|00001f30| 67 33 2c 20 61 72 67 34 | 2c 20 61 72 67 35 3b 0d |g3, arg4|, arg5;.|
|00001f40| 7b 0d 20 20 20 20 69 6e | 74 20 69 3b 0d 0d 23 69 |{.    in|t i;..#i|
|00001f50| 66 64 65 66 20 6d 61 63 | 69 6e 74 6f 73 68 0d 20 |fdef mac|intosh. |
|00001f60| 20 20 20 66 6f 72 20 28 | 69 20 3d 20 64 75 6d 70 |   for (|i = dump|
|00001f70| 6c 76 6c 2a 34 3b 20 69 | 3b 20 69 2d 2d 29 0d 09 |lvl*4; i|; i--)..|
|00001f80| 28 76 6f 69 64 29 70 75 | 74 63 28 27 20 27 2c 70 |(void)pu|tc(' ',p|
|00001f90| 65 72 6c 64 62 67 29 3b | 0d 20 20 20 20 66 70 72 |erldbg);|.    fpr|
|00001fa0| 69 6e 74 66 28 70 65 72 | 6c 64 62 67 2c 61 72 67 |intf(per|ldbg,arg|
|00001fb0| 31 2c 20 61 72 67 32 2c | 20 61 72 67 33 2c 20 61 |1, arg2,| arg3, a|
|00001fc0| 72 67 34 2c 20 61 72 67 | 35 29 3b 0d 23 65 6c 73 |rg4, arg|5);.#els|
|00001fd0| 65 0d 20 20 20 20 66 6f | 72 20 28 69 20 3d 20 64 |e.    fo|r (i = d|
|00001fe0| 75 6d 70 6c 76 6c 2a 34 | 3b 20 69 3b 20 69 2d 2d |umplvl*4|; i; i--|
|00001ff0| 29 0d 09 28 76 6f 69 64 | 29 70 75 74 63 28 27 20 |)..(void|)putc(' |
|00002000| 27 2c 73 74 64 65 72 72 | 29 3b 0d 20 20 20 20 66 |',stderr|);.    f|
|00002010| 70 72 69 6e 74 66 28 73 | 74 64 65 72 72 2c 61 72 |printf(s|tderr,ar|
|00002020| 67 31 2c 20 61 72 67 32 | 2c 20 61 72 67 33 2c 20 |g1, arg2|, arg3, |
|00002030| 61 72 67 34 2c 20 61 72 | 67 35 29 3b 0d 23 65 6e |arg4, ar|g5);.#en|
|00002040| 64 69 66 0d 7d 0d 23 65 | 6e 64 69 66 0d 0d 23 69 |dif.}.#e|ndif..#i|
|00002050| 66 64 65 66 20 44 45 42 | 55 47 0d 63 68 61 72 20 |fdef DEB|UG.char |
|00002060| 2a 0d 73 68 6f 77 69 6e | 70 75 74 28 29 0d 7b 0d |*.showin|put().{.|
|00002070| 20 20 20 20 72 65 67 69 | 73 74 65 72 20 63 68 61 |    regi|ster cha|
|00002080| 72 20 2a 73 20 3d 20 73 | 74 72 5f 67 65 74 28 6c |r *s = s|tr_get(l|
|00002090| 69 6e 65 73 74 72 29 3b | 0d 20 20 20 20 69 6e 74 |inestr);|.    int|
|000020a0| 20 66 64 3b 0d 20 20 20 | 20 73 74 61 74 69 63 20 | fd;.   | static |
|000020b0| 63 68 61 72 20 63 6d 64 | 5b 5d 20 3d 0d 20 20 20 |char cmd|[] =.   |
|000020c0| 20 20 20 7b 30 35 2c 30 | 33 30 2c 30 35 2c 30 33 |   {05,0|30,05,03|
|000020d0| 2c 30 34 30 2c 30 33 2c | 30 32 32 2c 30 33 31 2c |,040,03,|022,031,|
|000020e0| 30 32 30 2c 30 32 34 2c | 30 34 30 2c 30 34 2c 30 |020,024,|040,04,0|
|000020f0| 31 37 2c 30 31 36 2c 30 | 32 34 2c 30 31 2c 30 32 |17,016,0|24,01,02|
|00002100| 33 2c 30 31 33 2c 30 34 | 30 2c 0d 09 30 37 34 2c |3,013,04|0,..074,|
|00002110| 30 35 37 2c 30 32 34 2c | 30 31 35 2c 30 32 30 2c |057,024,|015,020,|
|00002120| 30 35 37 2c 30 35 36 2c | 30 30 36 2c 30 31 37 2c |057,056,|006,017,|
|00002130| 30 31 37 2c 30 7d 3b 0d | 0d 20 20 20 20 69 66 20 |017,0};.|.    if |
|00002140| 28 72 73 66 70 20 21 3d | 20 73 74 64 69 6e 20 7c |(rsfp !=| stdin ||
|00002150| 7c 20 73 74 72 6e 45 51 | 28 73 2c 22 23 21 22 2c || strnEQ|(s,"#!",|
|00002160| 32 29 29 0d 09 72 65 74 | 75 72 6e 20 73 3b 0d 20 |2))..ret|urn s;. |
|00002170| 20 20 20 66 6f 72 20 28 | 3b 20 2a 73 3b 20 73 2b |   for (|; *s; s+|
|00002180| 2b 29 20 7b 0d 09 69 66 | 20 28 2a 73 20 26 20 30 |+) {..if| (*s & 0|
|00002190| 32 30 30 29 20 7b 0d 09 | 20 20 20 20 66 64 20 3d |200) {..|    fd =|
|000021a0| 20 63 72 65 61 74 28 22 | 2f 74 6d 70 2f 2e 66 6f | creat("|/tmp/.fo|
|000021b0| 6f 22 2c 30 36 30 30 29 | 3b 0d 09 20 20 20 20 77 |o",0600)|;..    w|
|000021c0| 72 69 74 65 28 66 64 2c | 73 74 72 5f 67 65 74 28 |rite(fd,|str_get(|
|000021d0| 6c 69 6e 65 73 74 72 29 | 2c 6c 69 6e 65 73 74 72 |linestr)|,linestr|
|000021e0| 2d 3e 73 74 72 5f 63 75 | 72 29 3b 0d 09 20 20 20 |->str_cu|r);..   |
|000021f0| 20 77 68 69 6c 65 28 73 | 20 3d 20 73 74 72 5f 67 | while(s| = str_g|
|00002200| 65 74 73 28 6c 69 6e 65 | 73 74 72 2c 72 73 66 70 |ets(line|str,rsfp|
|00002210| 2c 30 29 29 20 7b 0d 09 | 09 77 72 69 74 65 28 66 |,0)) {..|.write(f|
|00002220| 64 2c 73 2c 6c 69 6e 65 | 73 74 72 2d 3e 73 74 72 |d,s,line|str->str|
|00002230| 5f 63 75 72 29 3b 0d 09 | 20 20 20 20 7d 0d 09 20 |_cur);..|    }.. |
|00002240| 20 20 20 28 76 6f 69 64 | 29 63 6c 6f 73 65 28 66 |   (void|)close(f|
|00002250| 64 29 3b 0d 09 20 20 20 | 20 66 6f 72 20 28 73 3d |d);..   | for (s=|
|00002260| 63 6d 64 3b 20 2a 73 3b | 20 73 2b 2b 29 0d 09 09 |cmd; *s;| s++)...|
|00002270| 69 66 20 28 2a 73 20 3c | 20 27 20 27 29 0d 09 09 |if (*s <| ' ')...|
|00002280| 20 20 20 20 2a 73 20 2b | 3d 20 39 36 3b 0d 09 20 |    *s +|= 96;.. |
|00002290| 20 20 20 72 73 66 70 20 | 3d 20 6d 79 70 6f 70 65 |   rsfp |= mypope|
|000022a0| 6e 28 63 6d 64 2c 22 72 | 22 29 3b 0d 09 20 20 20 |n(cmd,"r|");..   |
|000022b0| 20 73 20 3d 20 73 74 72 | 5f 67 65 74 73 28 6c 69 | s = str|_gets(li|
|000022c0| 6e 65 73 74 72 2c 72 73 | 66 70 2c 30 29 3b 0d 09 |nestr,rs|fp,0);..|
|000022d0| 20 20 20 20 72 65 74 75 | 72 6e 20 73 3b 0d 09 7d |    retu|rn s;..}|
|000022e0| 0d 20 20 20 20 7d 0d 20 | 20 20 20 72 65 74 75 72 |.    }. |   retur|
|000022f0| 6e 20 73 74 72 5f 67 65 | 74 28 6c 69 6e 65 73 74 |n str_ge|t(linest|
|00002300| 72 29 3b 0d 7d 0d 23 65 | 6e 64 69 66 0d 0d 76 6f |r);.}.#e|ndif..vo|
|00002310| 69 64 20 69 6e 69 74 5f | 64 75 6d 70 28 29 0d 7b |id init_|dump().{|
|00002320| 0d 23 69 66 64 65 66 20 | 44 45 42 55 47 47 49 4e |.#ifdef |DEBUGGIN|
|00002330| 47 0d 20 20 20 20 64 75 | 6d 70 6c 76 6c 20 3d 20 |G.    du|mplvl = |
|00002340| 30 3b 0d 23 65 6e 64 69 | 66 0d 7d 0d 00 00 00 00 |0;.#endi|f.}.....|
|00002350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002380| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00002390| 00 00 18 af 08 4d 61 6b | 65 66 69 6c 65 00 02 00 |.....Mak|efile...|
|000023a0| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 68 00 00 |..TEXTMP|S ...h..|
|000023b0| 06 64 75 6d 70 2e 63 da | 02 00 00 00 54 45 58 54 |.dump.c.|....TEXT|
|000023c0| 4d 50 53 20 01 00 ff ff | ff ff 00 00 00 00 04 0f |MPS ....|........|
|000023d0| 00 00 54 45 58 54 4d 50 | 53 20 01 00 ff ff ff ff |..TEXTMP|S ......|
|000023e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023f0| 00 00 a8 ee 26 8b 00 00 | 22 cc 00 00 01 ac 00 00 |....&...|".......|
|00002400| 00 00 00 00 06 00 00 00 | 18 b5 00 47 03 00 00 00 |........|...G....|
|00002410| 00 00 00 00 00 00 00 00 | 17 e4 04 47 55 53 49 00 |........|...GUSI.|
|00002420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002430| 00 00 00 00 00 00 00 00 | 00 00 13 00 00 00 18 b5 |........|........|
|00002440| 0d 2f 65 74 63 2f 73 65 | 72 76 69 63 65 73 02 00 |./etc/se|rvices..|
|00002450| 02 00 54 45 58 54 52 69 | 63 68 01 00 05 c0 00 00 |..TEXTRi|ch......|
|00002460| 00 00 00 00 18 b6 00 00 | 00 00 05 3b 00 00 08 00 |........|...;....|
|00002470| 00 00 00 00 01 ac 00 00 | 04 00 a8 7d f8 69 a8 7e |........|...}.i.~|
|00002480| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 44 61 74 |...H..Mo|naco.Dat|
|00002490| 65 00 ff ff ff ff ff ff | 80 00 00 04 00 00 00 40 |e.......|.......@|
|000024a0| 00 02 5b 04 43 68 00 06 | 00 03 00 a0 00 10 03 63 |..[.Ch..|.......c|
|000024b0| 04 3d 00 a0 00 10 03 63 | 04 3d a8 ee 26 8f 00 00 |.=.....c|.=..&...|
|000024c0| 03 3d 00 00 03 46 00 00 | 00 00 01 00 00 00 00 1e |.=...F..|........|
|000024d0| 00 a0 00 10 03 63 04 3d | 00 a0 00 10 03 63 04 3d |.....c.=|.....c.=|
|000024e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024f0| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 01 90 |.....n..|.n...>..|
|00002500| 29 f8 13 1a 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |).......|.>..MPSR|
|00002510| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00002520| 03 f0 ff ff 00 00 00 4c | 01 92 7d 30 00 00 00 00 |.......L|..}0....|
|00002530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+